Libris Britannia 4/science library(b).zip/science library(b)/MEDICAL/2608A.ZIP/GP.ZIP/FINDPAT.SRC

Text File | 1990-11-03 | 4KB | 245 lines

;\|
;FINDPAT.SRC     Translated from FINDPAT.EDT by Roger Mathew's EDT2SRC Ver 4.11
;FINDPAT  04:27:46 PM  15/ 1/90   |
    define(FLAG|A|1||)
    define(ARRAY1|A|30||3)
    define(ARRAY2|A|22||3)
    define(ARRAY3|A|22||3)
    define(ARRAY4|A|1||3)
    define(MEM_FIELD|A|27||)
    define(CHOICE|A|1||)
    define(CNTR|N|3||)
    define(RESTRICT2|A|35||)
    define(S1PRNT|A|1||)
    define(S10|A|10||)
    define(N2|N|2|0|)
    define(MINUS|N|1||)
    define(TIT|A|4||)
    define(N3|N|3|0|)
    define(N5|N|5|0|)
    define(B8|A|8||)
    define(N5.2|N|5|2|)
    define(A5|A|5||)
    define(A8|A|8||)
    define(A30|A|30||)
    define(B30|A|30||)
    define(C30|A|30||)
    define(D1|A|1||)
    define(AGE|N|5|2|)
    define(TD|S|8||)
    define(DATERP|S|8||)
    define(TDND|S|8||)
    define(DATEX|S|8||)
    define(REC.NUM|N|8|0|)
    define(MEM.PAT.NAME|A|27||)
    define(DAY|N|1|0|)
    define(DOCTORRP|A|30||)
    define(P2|N|2|0|)
    define(PUNC2A|N|2|0|)
    define(PATIENT1A|A|30||)
    define(PUNC1|N|2|0|)
    define(TM|A|27||16)
    define(N.2.0.P|N|2|0|)
    define(P.2.0.1|N|2|0|)
    define(P.2.0.2|N|2|0|)
    define(P.2.0.3|N|2|0|)
    define(PATIENT1|A|30||)
    define(PATIENT2|A|30||)
    define(X1|A|1||)
    define(CHOICE|N|2|0|)
    define(YES.NO|A|1||)
    define(A78|A|80||)
    define(SAVE|A|1||)
    define(LCTR|N|2|0|)
    define(AB|A|5||)
    define(LETTER|A|6||)
    define(NY|A|1||)
    define(MEDCTR|N|1|0|)
    define(PATCTR|N|4|0|)
    define(Z30|A|30||)
    define(P2X|N|1||)
    define(RPCTR|N|4||)
    define(CODEX1|S|8||)
    define(CODEX2|S|8||)
    define(CODEX3|S|8||)
    open(PATIENT||0|)
    trap(S|G|SAVE)
    trap(D|I)
    mount(PATIENT|S)
START:
    enter(PATIENT.NAME||||Y|N|N|||N)
    find(G|PATIENT.NAME||)
    enter(SEEN||||N|N|N|||N)
    DATE_SEEN = (SEEN)
    enter(NHS.NUM||||N|N|N|||N)
SAVE:
    if RECORD.NUMBER = (0) goto START
    save(PATIENT|N|Y)
NEXTONE:
    find(N|PATIENT|EXIT|)
    if SEEN > (0) goto NEXTONE
    goto START
EXIT:
    run("recmenu")
\STPATIENT


      ┌───────────────────────────────────────────────────────────┐
      │                                                           │
      │            PAT.NAME:&                          <          │
      │            ADDRESS :&                     <               │
      │             DOB    :&         <                           │
      │            SEEN     &       < &                           │
      │           NHS.NUM  :&         <                           │
      └───────────────────────────────────────────────────────────┘














\
PATIENT.NAME
ADDRESS1
DATE.OF.BIRTH
SEEN
DATE_SEEN
NHS.NUM
\
\R REPORT
PATIENT NAME                ADDRESS                AREA                   DATE
&                           &                      &                      &          &   &           &        &
THESE PATIENTS ARE NOT ON FPC AGE SEX LIST.  DATE PRINTED:&
THESE PATIENTS ARE ON FPC AGE SEX BUT NOT ON OURS. DATE PRINTED :&
THESE PATIENTS ARE NOT PROPERLY DRUG CODED ETC. DATE PRINTED:&
==============================================================================
TOTAL RECORDS PRINTED = &
THESE PATIENTS HAVE HAD THE PROBLEM SORTED.   DATE PRINTED:&


















                           REA                   DATE/ BIRTH





















\
PATIENT.NAME
ADDRESS1
AREA
DATE.OF.BIRTH
SEX
NHS.NUM
PAT.REG
NOTES.REC
TD
TD
TD
CNTR
TD
\
\R LABELS
&                                      &                                        &
&                                      &                                        &
&                      &               &                      &                 &                      &













































\
ARRAY1[1]
ARRAY1[2]
ARRAY1[3]
ARRAY2[1]
ARRAY2[2]
ARRAY2[3]
ARRAY3[1]
ARRAY4[1]
ARRAY3[2]
ARRAY4[2]
ARRAY3[3]
ARRAY4[3]
\